Hook na minimize ?

Otázka od: Jiri Betunak

19. 4. 2004 11:40

Hello delphi-l,

  Nevi te , nebo neresili jste prosim nekdo jak odchytit spravu jine
  aplikace o tom ze se minimalizuje ?

  neco jako tohle ale pro vsechny spustene aplikace v systemu
{

private
    { Private declarations }
    procedure WMSyscommand(var msg: TWmSysCommand); message WM_SYSCOMMAND;
    procedure WMSize( Var msg: TWMSize ); Message WM_SIZE;
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.WMSyscommand(var msg: TWmSysCommand);
begin
   case (msg.CmdType and $FFF0) of
     SC_MINIMIZE: begin
                    ShowMessage('Window about to MINIMIZE');
                  end;
     SC_RESTORE : begin
                    ShowMessage('Window about to RESTORE');
                  end;
     SC_MAXIMIZE: begin
                    ShowMessage('Window about to MAXIMIZE');
                  end;
   end;
   inherited;
end;

}

Predem dekuji za jakoukoliv pomoc

--
Best regards,
Jiri mailto:kindrik@centrum.cz

ICQ: 265297587

__________________________________________________________________